home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / easynet.zip / DEMO.ZIP / COMMENTS.FRM < prev    next >
Text File  |  1995-12-26  |  6KB  |  126 lines

  1. VERSION 4.00
  2. Begin VB.Form frmComments 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Comments"
  7.    ClientHeight    =   3750
  8.    ClientLeft      =   1095
  9.    ClientTop       =   1485
  10.    ClientWidth     =   6990
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   1
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   4155
  22.    Left            =   1035
  23.    LinkTopic       =   "Form5"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   3750
  27.    ScaleWidth      =   6990
  28.    Top             =   1140
  29.    Width           =   7110
  30.    Begin VB.CommandButton Command1 
  31.       Appearance      =   0  'Flat
  32.       BackColor       =   &H80000005&
  33.       Caption         =   "Ok"
  34.       Default         =   -1  'True
  35.       Height          =   375
  36.       Left            =   5760
  37.       TabIndex        =   2
  38.       Top             =   240
  39.       Width           =   1035
  40.    End
  41.    Begin VB.TextBox Text1 
  42.       Appearance      =   0  'Flat
  43.       BeginProperty Font 
  44.          name            =   "MS Sans Serif"
  45.          charset         =   1
  46.          weight          =   400
  47.          size            =   9.75
  48.          underline       =   0   'False
  49.          italic          =   0   'False
  50.          strikethrough   =   0   'False
  51.       EndProperty
  52.       Height          =   2865
  53.       Left            =   210
  54.       MultiLine       =   -1  'True
  55.       ScrollBars      =   2  'Vertical
  56.       TabIndex        =   0
  57.       Text            =   "COMMENTS.frx":0000
  58.       Top             =   720
  59.       Width           =   5295
  60.    End
  61.    Begin VB.Label Label1 
  62.       Appearance      =   0  'Flat
  63.       BackColor       =   &H00C0C0C0&
  64.       Caption         =   "Label1"
  65.       BeginProperty Font 
  66.          name            =   "Times New Roman"
  67.          charset         =   1
  68.          weight          =   700
  69.          size            =   15
  70.          underline       =   0   'False
  71.          italic          =   0   'False
  72.          strikethrough   =   0   'False
  73.       EndProperty
  74.       ForeColor       =   &H00008080&
  75.       Height          =   375
  76.       Left            =   210
  77.       TabIndex        =   1
  78.       Top             =   210
  79.       Width           =   5295
  80.    End
  81. End
  82. Attribute VB_Name = "frmComments"
  83. Attribute VB_Creatable = False
  84. Attribute VB_Exposed = False
  85. Const INFO11 = " In this example, the purpose is to associate actors (Transparent blue nodes) to task items (yellow nodes). "
  86. Const INFO12 = " You can't change the process diagram. You can only move and resize nodes or stretch links. This limitation is added here in order to demonstrate how easy it is to customize your application."
  87. Const INFO13 = " Therefore, you may create new actor node or change actor names by double-clicking over actor node and you may also create links between actor nodes and task nodes (Ex.: Jane - Order Entry). A dialog box is displayed when The DBLCLICK event is received."
  88. Const INFO14 = " Note that when mouse is over a sizing square, the mouse pointer is changing, depending on its position. (See PointedArea property in the help file)"
  89.  
  90. Const INFO21 = " The flat node owns 4 little sleeping node implementing stubs. You may create new PC nodes and link them to the long flat node."
  91. Const INFO22 = " If you select such a red link, then you may change a link stub with ""Next Stub"" button.              "
  92. Const INFO23 = " Nodes are transparent and DrawStyle is set to 5 (Transparent) so that only the node picture (icon) is visible."
  93.  
  94. Const INFO31 = " Here, you have a way to combine the node and link add into a single step. "
  95. Const INFO32 = " You bring the mouse cursor into the handle at the center of the selected node, press the left button, move the mouse where you want but not over a node. Then you release the left button and you'll see that a node and a link are created together."
  96. Const INFO33 = " The yellow node is a sleeping node: you can't select it interactively. "
  97. Const INFO34 = " Note that there is a displayed grid (see ShowGrid property)."
  98. Const INFO35 = " Note also that when you create a node with the mouse, there is a mimimal node size (See AddNode event in the help file to see how to do that)."
  99. Const INFO36 = " Note that when mouse is over a sizing square, the mouse pointer is changing, depending on its position. (See PointedArea property in the help file)"
  100.  
  101. Const INFO41 = " In this example, node sizes are adjusted to picture sizes (See property AutoSize). In such a case, text is displayed inside picture."
  102. Const INFO42 = " Therefore, you can't change node size unless you change AutoSize property"
  103. Const INFO43 = " You may change some node properties (text, shape, AutoSize, Alignment) by double-clicking on this node."
  104.  
  105. Private Sub Command1_Click()
  106.   Unload Me
  107. End Sub
  108.  
  109. Private Sub Form_Load()
  110.   Select Case MDI1.ActiveForm.Tag
  111.   Case 1
  112.     Label1.Caption = "Example 1: WorkFlow"
  113.     Text1.Text = INFO11 + cr + lf + INFO12 + cr + lf + INFO13 + cr + lf + INFO14
  114.   Case 2
  115.     Label1.Caption = "Example 2: Network"
  116.     Text1.Text = INFO21 + cr + lf + INFO22 + cr + lf + INFO23
  117.   Case 3
  118.     Label1.Caption = "Example 3: Diagram"
  119.     Text1.Text = INFO31 + cr + lf + INFO32 + cr + lf + INFO33 + cr + lf + INFO34 + cr + lf + INFO35 + cr + lf + INFO36
  120.   Case 4
  121.     Label1.Caption = "Example 4: FlowChart"
  122.     Text1.Text = INFO41 + cr + lf + INFO42 + cr + lf + INFO43
  123.   End Select
  124. End Sub
  125.  
  126.